Delphi Developer's Kit 1996/Delphi Developer's Kit 1996.iso/power/tpxtable/pxtdemo.dfm/pxtdemo.txt

Text File | 1995-12-22 | 12.1 KB | 493 lines

object ParadoxDemoForm: TParadoxDemoForm
  Left = 78
  Top = 3
  Width = 760
  Height = 599
  Caption = 'Paradox cascaded delete demo'
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  PixelsPerInch = 96
  Position = poDefault
  WindowState = wsMaximized
  TextHeight = 13
  object Image1: TImage
    Left = 20
    Top = 524
    Width = 45
    Height = 45
    Picture.Data = {<image000.bmp>}
    Stretch = True
  end
  object GroupBox1: TGroupBox
    Left = 4
    Top = 0
    Width = 189
    Height = 517
    Caption = 'Master'
    Color = clBtnFace
    ParentColor = False
    TabOrder = 0
    object DBNavigator1: TDBNavigator
      Left = 8
      Top = 20
      Width = 172
      Height = 25
      DataSource = MasterSource
      VisibleButtons = [nbFirst, nbPrior, nbNext, nbLast, nbInsert, nbDelete, nbEdit, nbPost, nbCancel]
      TabOrder = 0
    end
    object DBGrid1: TDBGrid
      Left = 8
      Top = 48
      Width = 173
      Height = 461
      Hint =
        'Master table - MasterCode field is linked to detail #1 and #2 ta' +
        'bles'#39's MasterCode field'
      Ctl3D = True
      DataSource = MasterSource
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentCtl3D = False
      ParentFont = False
      ParentShowHint = False
      ShowHint = True
      TabOrder = 1
      TitleFont.Color = clWindowText
      TitleFont.Height = -11
      TitleFont.Name = 'MS Sans Serif'
      TitleFont.Style = []
    end
  end
  object GroupBox2: TGroupBox
    Left = 204
    Top = 0
    Width = 189
    Height = 285
    Caption = 'Detail #1'
    TabOrder = 1
    object DBNavigator2: TDBNavigator
      Left = 8
      Top = 20
      Width = 172
      Height = 25
      DataSource = DetailSource1
      VisibleButtons = [nbFirst, nbPrior, nbNext, nbLast, nbInsert, nbDelete, nbEdit, nbPost, nbCancel]
      TabOrder = 0
    end
    object DBGrid2: TDBGrid
      Left = 8
      Top = 48
      Width = 173
      Height = 229
      Hint =
        'Detail table #1 - MasterCode field is linked to master table'#39's M' +
        'asterCode field'
      DataSource = DetailSource1
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      Options = [dgEditing, dgTitles, dgIndicator, dgColLines, dgRowLines, dgTabs, dgCancelOnExit]
      ParentFont = False
      ParentShowHint = False
      ShowHint = True
      TabOrder = 1
      TitleFont.Color = clWindowText
      TitleFont.Height = -11
      TitleFont.Name = 'MS Sans Serif'
      TitleFont.Style = []
    end
  end
  object GroupBox3: TGroupBox
    Left = 204
    Top = 292
    Width = 189
    Height = 285
    Caption = 'Detail #2'
    TabOrder = 2
    object DBNavigator3: TDBNavigator
      Left = 8
      Top = 20
      Width = 172
      Height = 25
      DataSource = DetailSource2
      VisibleButtons = [nbFirst, nbPrior, nbNext, nbLast, nbInsert, nbDelete, nbEdit, nbPost, nbCancel]
      TabOrder = 0
    end
    object DBGrid3: TDBGrid
      Left = 8
      Top = 48
      Width = 173
      Height = 229
      Hint =
        'Detail table #2 - MasterCode field is linked to master table'#39's M' +
        'asterCode field'
      DataSource = DetailSource2
      Options = [dgEditing, dgTitles, dgIndicator, dgColLines, dgRowLines, dgTabs, dgCancelOnExit]
      ParentShowHint = False
      ShowHint = True
      TabOrder = 1
      TitleFont.Color = clWindowText
      TitleFont.Height = -11
      TitleFont.Name = 'MS Sans Serif'
      TitleFont.Style = []
    end
    object Detail2CheckBox: TCheckBox
      Left = 104
      Top = 0
      Width = 61
      Height = 16
      Caption = 'View all'
      Color = clBtnFace
      Ctl3D = True
      ParentColor = False
      ParentCtl3D = False
      TabOrder = 2
      OnClick = Detail2CheckBoxClick
    end
  end
  object GroupBox4: TGroupBox
    Left = 404
    Top = 0
    Width = 193
    Height = 285
    Caption = 'SubDetail #1 / 1'
    TabOrder = 3
    object DBNavigator4: TDBNavigator
      Left = 8
      Top = 20
      Width = 172
      Height = 25
      DataSource = SubDetail11Source
      VisibleButtons = [nbFirst, nbPrior, nbNext, nbLast, nbInsert, nbDelete, nbEdit, nbPost, nbCancel]
      TabOrder = 0
    end
    object DBGrid4: TDBGrid
      Left = 8
      Top = 48
      Width = 177
      Height = 229
      Hint =
        'SubDetail table #1 / 1 - DetailText field is linked to detail #1' +
        ' table'#39's Detail1Text field'
      DataSource = SubDetail11Source
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      Options = [dgEditing, dgTitles, dgIndicator, dgColLines, dgRowLines, dgTabs, dgCancelOnExit]
      ParentFont = False
      ParentShowHint = False
      ShowHint = True
      TabOrder = 1
      TitleFont.Color = clWindowText
      TitleFont.Height = -11
      TitleFont.Name = 'MS Sans Serif'
      TitleFont.Style = []
    end
  end
  object GroupBox5: TGroupBox
    Left = 604
    Top = 0
    Width = 193
    Height = 285
    Caption = 'SubDetail #2 / 1'
    TabOrder = 4
    object DBNavigator5: TDBNavigator
      Left = 8
      Top = 20
      Width = 172
      Height = 25
      DataSource = SubDetail12Source
      VisibleButtons = [nbFirst, nbPrior, nbNext, nbLast, nbInsert, nbDelete, nbEdit, nbPost, nbCancel]
      TabOrder = 0
    end
    object DBGrid5: TDBGrid
      Left = 8
      Top = 48
      Width = 177
      Height = 229
      Hint =
        'SubDetail table #1 / 2 - DetailText field is linked to detail #1' +
        ' table'#39's Detail1Text field'
      DataSource = SubDetail12Source
      Options = [dgEditing, dgTitles, dgIndicator, dgColLines, dgRowLines, dgTabs, dgCancelOnExit]
      ParentShowHint = False
      ShowHint = True
      TabOrder = 1
      TitleFont.Color = clWindowText
      TitleFont.Height = -11
      TitleFont.Name = 'MS Sans Serif'
      TitleFont.Style = []
    end
  end
  object GroupBox6: TGroupBox
    Left = 404
    Top = 292
    Width = 193
    Height = 285
    Caption = 'SubDetail #1 / 2'
    TabOrder = 5
    object DBNavigator6: TDBNavigator
      Left = 8
      Top = 20
      Width = 172
      Height = 25
      DataSource = SubDetail21Source
      VisibleButtons = [nbFirst, nbPrior, nbNext, nbLast, nbInsert, nbDelete, nbEdit, nbPost, nbCancel]
      TabOrder = 0
    end
    object DBGrid6: TDBGrid
      Left = 8
      Top = 48
      Width = 177
      Height = 229
      Hint =
        'SubDetail table #2 / 1 - DetailText field is linked to detail #2' +
        ' table'#39's Detail1Text field'
      DataSource = SubDetail21Source
      Options = [dgEditing, dgTitles, dgIndicator, dgColLines, dgRowLines, dgTabs, dgCancelOnExit]
      ParentShowHint = False
      ShowHint = True
      TabOrder = 1
      TitleFont.Color = clWindowText
      TitleFont.Height = -11
      TitleFont.Name = 'MS Sans Serif'
      TitleFont.Style = []
    end
  end
  object GroupBox7: TGroupBox
    Left = 604
    Top = 292
    Width = 193
    Height = 285
    Caption = 'SubDetail #2 / 2'
    TabOrder = 6
    object DBNavigator7: TDBNavigator
      Left = 8
      Top = 20
      Width = 172
      Height = 25
      DataSource = SubDetail22Source
      VisibleButtons = [nbFirst, nbPrior, nbNext, nbLast, nbInsert, nbDelete, nbEdit, nbPost, nbCancel]
      TabOrder = 0
    end
    object DBGrid7: TDBGrid
      Left = 8
      Top = 48
      Width = 177
      Height = 229
      Hint =
        'SubDetail table #2 / 2 - DetailText field is linked to detail #2' +
        ' table'#39's Detail1Text field'
      DataSource = SubDetail22Source
      Options = [dgEditing, dgTitles, dgIndicator, dgColLines, dgRowLines, dgTabs, dgCancelOnExit]
      ParentShowHint = False
      ShowHint = True
      TabOrder = 1
      TitleFont.Color = clWindowText
      TitleFont.Height = -11
      TitleFont.Name = 'MS Sans Serif'
      TitleFont.Style = []
    end
  end
  object Detail1CheckBox: TCheckBox
    Left = 308
    Top = 0
    Width = 61
    Height = 16
    Caption = 'View all'
    Color = clBtnFace
    Ctl3D = True
    ParentColor = False
    ParentCtl3D = False
    TabOrder = 7
    OnClick = Detail1CheckBoxClick
  end
  object Detail11CheckBox: TCheckBox
    Left = 508
    Top = 0
    Width = 61
    Height = 16
    Caption = 'View all'
    Color = clBtnFace
    Ctl3D = True
    ParentColor = False
    ParentCtl3D = False
    TabOrder = 8
    OnClick = Detail11CheckBoxClick
  end
  object Detail12CheckBox: TCheckBox
    Left = 708
    Top = 0
    Width = 61
    Height = 16
    Caption = 'View all'
    Color = clBtnFace
    Ctl3D = True
    ParentColor = False
    ParentCtl3D = False
    TabOrder = 9
    OnClick = Detail12CheckBoxClick
  end
  object Detail21CheckBox: TCheckBox
    Left = 508
    Top = 292
    Width = 61
    Height = 16
    Caption = 'View all'
    Color = clBtnFace
    Ctl3D = True
    ParentColor = False
    ParentCtl3D = False
    TabOrder = 10
    OnClick = Detail21CheckBoxClick
  end
  object Detail22CheckBox: TCheckBox
    Left = 708
    Top = 292
    Width = 61
    Height = 16
    Caption = 'View all'
    Color = clBtnFace
    Ctl3D = True
    ParentColor = False
    ParentCtl3D = False
    TabOrder = 11
    OnClick = Detail22CheckBoxClick
  end
  object Button1: TButton
    Left = 84
    Top = 532
    Width = 89
    Height = 33
    Caption = 'Exit'
    Font.Color = clRed
    Font.Height = -16
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 12
    OnClick = Button1Click
  end
  object MasterTable: TPXTable
    Active = True
    AfterInsert = RefreshDetailTables
    AfterEdit = RefreshDetailTables
    AfterPost = RefreshDetailTables
    AfterDelete = RefreshDetailTables
    DatabaseName = 'PROBA'
    TableName = 'MASTER.DB'
    Left = 12
    Top = 16
  end
  object MasterSource: TDataSource
    DataSet = MasterTable
    Left = 40
    Top = 16
  end
  object DetailTable1: TPXTable
    Active = True
    AfterInsert = RefreshSubDetailTables1
    AfterEdit = RefreshSubDetailTables1
    AfterPost = RefreshSubDetailTables1
    AfterDelete = RefreshSubDetailTables1
    DatabaseName = 'PROBA'
    IndexFieldNames = 'MasterCode'
    MasterFields = 'MasterCode'
    MasterSource = MasterSource
    TableName = 'DETAIL1.DB'
    Left = 212
    Top = 16
  end
  object DetailSource1: TDataSource
    DataSet = DetailTable1
    Left = 240
    Top = 16
  end
  object DetailTable2: TPXTable
    Active = True
    AfterInsert = RefreshSubDetailTables2
    AfterEdit = RefreshSubDetailTables2
    AfterPost = RefreshSubDetailTables2
    AfterDelete = RefreshSubDetailTables2
    DatabaseName = 'PROBA'
    IndexFieldNames = 'MasterCode'
    MasterFields = 'MasterCode'
    MasterSource = MasterSource
    TableName = 'DETAIL2.DB'
    Left = 212
    Top = 308
  end
  object DetailSource2: TDataSource
    DataSet = DetailTable2
    Left = 240
    Top = 308
  end
  object SubDetail11Source: TDataSource
    DataSet = SubDetail11Table
    Left = 440
    Top = 16
  end
  object SubDetail12Table: TPXTable
    Active = True
    DatabaseName = 'PROBA'
    IndexFieldNames = 'Detail1Text'
    MasterFields = 'Detail1Text'
    MasterSource = DetailSource1
    TableName = 'DETAIL1B.DB'
    Left = 612
    Top = 16
  end
  object SubDetail12Source: TDataSource
    DataSet = SubDetail12Table
    Left = 640
    Top = 16
  end
  object SubDetail21Table: TPXTable
    Active = True
    DatabaseName = 'PROBA'
    IndexFieldNames = 'Detail2Text'
    MasterFields = 'Detail2Text'
    MasterSource = DetailSource2
    TableName = 'DETAIL2A.DB'
    Left = 412
    Top = 308
  end
  object SubDetail22Table: TPXTable
    Active = True
    DatabaseName = 'PROBA'
    IndexFieldNames = 'Detail2Text'
    MasterFields = 'Detail2Text'
    MasterSource = DetailSource2
    TableName = 'DETAIL2B.DB'
    Left = 612
    Top = 308
  end
  object SubDetail21Source: TDataSource
    DataSet = SubDetail21Table
    Left = 440
    Top = 308
  end
  object SubDetail22Source: TDataSource
    DataSet = SubDetail22Table
    Left = 640
    Top = 308
  end
  object SubDetail11Table: TPXTable
    Active = True
    DatabaseName = 'PROBA'
    IndexFieldNames = 'Detail1Text'
    MasterFields = 'Detail1Text'
    MasterSource = DetailSource1
    TableName = 'DETAIL1A.DB'
    Left = 412
    Top = 16
  end
end